﻿Public Class Montant
    Public Id As Integer
    Public Montant As Double
    Public Date_payement As Date
    Public Remarque As String
    Public Type As String


    'Les constructeurs ----------------------
    Sub New(ByVal Id As Integer, ByVal Montant As Double, ByVal Date_payement As Date, ByVal Remarque As String, ByVal Type As String)
        Me.Id = Id
        Me.Montant = Montant
        Me.Date_payement = Date_payement
        Me.Remarque = Remarque
        Me.Type = Type

    End Sub
    
    Sub New()

    End Sub

    'les listes ------------------------------




    'les fonctions ------------------------

End Class
